Option Explicit
Sub K_Sample007()
    'ո TmpBook1.xls  TmpBook2.xls
    On Error Resume Next
    Kill ThisWorkbook.Path & "\TmpBook1.xls"				'Nï
    Kill ThisWorkbook.Path & "\TmpBook2.xls"
    On Error GoTo 0
    With Workbooks.Add
        .Worksheets(1).Cells(1, 1).Value = "\TmpBook1.xlsѷ"	'Dw
        .SaveAs ThisWorkbook.Path & "\TmpBook1.xls"
        .Worksheets(1).Cells(1, 1).Value = "\TmpBook2.xlsѷ"
        .SaveAs ThisWorkbook.Path & "\TmpBook2.xls"
        .Close
    End With
    With Worksheets.Add
        'wѷӥؼ
        .Cells(1, 1).Formula = _
            "='" & ThisWorkbook.Path & "\[TmpBook1.xls]Sheet1'!$A$1"
        MsgBox "A1ثeѷӤFTmpBook1.xlsC"
        MsgBox "{bnܧsؼ"
    End With
    With ThisWorkbook
        'ܧѷӥؼ
        .ChangeLink Name:=.Path & "\TmpBook1.xls" _
        , NewName:=.Path & "\TmpBook2.xls", Type:=xlExcelLinks
    End With
    MsgBox "{bnNsؼܧTmpBook2.xlsCбzbiT{C"
End Sub
